unit DatLogin;

interface

type
  TDatLogin = class
  private
    Fsenha: string;
    Fusuario: string;
    procedure SetUsuario(const value: string);
    procedure SetSenha(const value: string);
  protected
    { protected declarations }
  public
    { public declarations }
    property usuario: string read Fusuario write SetUsuario;
    property senha: string read Fsenha write SetSenha;
  end;

implementation

{ TDatLogin }

procedure TDatLogin.SetSenha(const value: string);
begin
  Fsenha := value;
end;

procedure TDatLogin.SetUsuario(const value: string);
begin
  Fusuario := value;
end;

end.
